home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: MegaDisc
/
MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip
/
MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf
/
ARexx
/
Modular
/
InnerWin.mod
< prev
next >
Wrap
Text File
|
1993-08-19
|
622b
|
18 lines
/* ------ Open/close an inner window ------ */
InnerWin:
if GetClip('inner_open') ~= '1' then do
address AREXX '"call CreateHost(HO1,PO1)"'
cmd = 'WaitForPort HO1'
if ~show('Ports',HO1) then address command cmd
l1 = 294 ; t1 = 40 ; w1 = 310 ; h1 = 150
ti1 = 'OpenWindow Demo'
flags = 'WINDOWDRAG+WINDOWSIZING+BACKFILL'
call OpenWindow(HO1,l1,t1,w1,h1,,flags,ti1)
call openport(PO1) ; call ActivateWindow(HO1)
s = SetClip('inner_open','1')
end
else do
call CloseWindow(HO1) ; s = SetClip('inner_open','0') ; end
return